home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / scrnmasm.arc / RESTORE.MAC < prev    next >
Encoding:
Text File  |  1988-11-20  |  1.6 KB  |  51 lines
  1. ;;
  2. ;; This MACRO will Pop a series of registers in reverse order. This means
  3. ;; that the listing to outward appearances looks the same as the SAVE
  4. ;; macro and gives less chances toward errors.
  5. ;;
  6. Restore Macro   Reg1,Reg2,Reg3,Reg4,Reg5,Reg6,Reg7,Reg8,Reg9,Reg10,Reg11,Reg12
  7.         IFB     <Reg1>
  8.         IF2
  9.         %Out    Missing Arguments in RESTORE macro
  10.         .Err
  11.         ExitM
  12.         EndIf
  13.         EndIf
  14.         IFNB    <Reg12>
  15.          Pop     Reg12               ; Restore Register
  16.         EndIf
  17.         IFNB    <Reg11>
  18.          Pop     Reg11               ; Restore Register
  19.         EndIf
  20.         IFNB    <Reg10>
  21.          Pop     Reg10               ; Restore Register
  22.         EndIf
  23.         IFNB    <Reg9>
  24.          Pop     Reg9                ; Restore Register
  25.         EndIf
  26.         IFNB    <Reg8>
  27.          Pop     Reg8                ; Restore Register
  28.         EndIf
  29.         IFNB    <Reg7>
  30.          Pop     Reg7                ; Restore Register
  31.         EndIf
  32.         IFNB    <Reg6>
  33.          Pop     Reg6                ; Restore Register
  34.         EndIf
  35.         IFNB    <Reg5>
  36.          Pop     Reg5                ; Restore Register
  37.         EndIf
  38.         IFNB    <Reg4>
  39.          Pop     Reg4                ; Restore Register
  40.         EndIf
  41.         IFNB    <Reg3>
  42.          Pop     Reg3                ; Restore Register
  43.         EndIf
  44.         IFNB    <Reg2>
  45.          Pop     Reg2                ; Restore Register
  46.         EndIf
  47.         IFNB    <Reg1>
  48.          Pop     Reg1                ; Restore Register
  49.         EndIf
  50.         EndM
  51.